
**APPENDIX TABLE 4 : Business Outcomes - Individual Variables**

**Panel A: Business knowledge
use "$data\followup_only.dta", clear

gen A_EDT_elig=(A_EDT==1 & d_lleligible==1)
gen A_EDT_no_elig=(A_EDT==1 & d_lleligible==0)
gen nobt_ne_nolw = EDT_treat==0 & d_lleligible==0 & L_ttreat==0

local yvars2 "laxman_bus_knowledge_fu bus_literacy_index_q5 bus_literacy_index_q6 bus_literacy_aggregate2" 
local xvars_rev2 "A_EDT_elig A_EDT_no_elig  B_LL C_EDT_LL nobt_ne_nolw female bl_bus_owner fu_dummy*"
sum `yvars2' if EDT_treat==0 & d_lleligible==1 & L_ttreat==0

foreach y in `yvars2' {
	reg `y' `xvars_rev2' if (fu_dummy7==0 & post==1 ) , cl(co_code1)
	estimates store `y'
	
	test A_EDT_elig =B_LL
	estadd scalar p_diff1 = r(p)
	test A_EDT_elig =C_EDT_LL
	estadd scalar p_diff2 = r(p)
	
	test B_LL=C_EDT_LL
	estadd scalar p_diff3 = r(p)
	
	test nobt_ne_nolw=A_EDT_no_elig
	estadd scalar p_diff4 = r(p)
	
	sum `y' if (fu_dummy7==0 & post==1 )
	sum `y' if (fu_dummy7==0 & post==1 & EDT_treat==0 & L_ttreat==0 & d_lleligible==1)
	
	estadd scalar mean_y=r(mean)
}

estout * using "$out\OA-TableA4-PanelA.xls", cells("b(star fmt(3))" se(par(`"="("' `")""'))) ///
	keep(A_EDT_elig A_EDT_no_elig B_LL C_EDT_LL nobt_ne_nolw) starlevels(* 0.10 ** 0.05 *** 0.01) ///
	stats( mean_y N r2 p_diff1 p_diff2 p_diff3 p_diff4, fmt(2 0 2 2 2) ///
	labels( "mean dependent variable" "N.obs" "R-Sq" "p1" "p2" "p3" "p4")) replace
estimates clear

********************************************************************************

**Panel B: Business practices

use "$data\business_visit.dta", clear

gen A_EDT_elig=(A_EDT==1 & d_lleligible==1)
gen A_EDT_no_elig=(A_EDT==1 & d_lleligible==0)
gen nobt_ne_nolw = EDT_treat==0 & d_lleligible==0 & L_ttreat==0

local yvars2 "purchase_on_credit record_sale_last_month record_money_taken record_practice global_practice_outcomes"
local xvars_rev2 "A_EDT_elig A_EDT_no_elig B_LL C_EDT_LL nobt_ne_nolw female fudummy*"
sum `yvars2' if EDT_treat==0 & d_lleligible==1 & L_ttreat==0 & bus_basline==1

est clear
local j =1
foreach y in `yvars2' {
	reg `y' `xvars_rev2' if (post==1 & bus_basline==1) , cl(co_code)
	estimates store `y'
	
	test A_EDT_elig =B_LL
	estadd scalar p_diff1 = r(p)
	
	test A_EDT_elig =C_EDT_LL
	estadd scalar p_diff2 = r(p)
	
	test B_LL=C_EDT_LL
	estadd scalar p_diff3 = r(p)
	
	test nobt_ne_nolw=A_EDT_no_elig
	estadd scalar p_diff4 = r(p)
	
	sum `y' if (post==1 & bus_basline==1) 
	estadd scalar mean_all = r(mean)
	sum `y' if (post==1 & bus_basline==1) & EDT_treat==0 & L_ttreat==0 & d_lleligible==1
	
	estadd scalar mean_y=r(mean)
	local j = `j'+1
}
	
estout * using "$out\OA-TableA4-PanelB.xls", cells("b(star fmt(3))" se(par(`"="("' `")""'))) ///
	keep(A_EDT_elig A_EDT_no_elig B_LL C_EDT_LL nobt_ne_nolw) starlevels(* 0.10 ** 0.05 *** 0.01) ///
	stats( mean_all mean_y N r2 p_diff1 p_diff2 p_diff3 p_diff4, fmt(2 2 0 2 2 2) ///
	labels( "Mean" "mean dependent variable" "N.obs" "R-Sq" "p1" "p2" "p3" "p4")) replace
estimates clear

********************************************************************************

**Panel C: Business operations

local yvars2 "bus_fixed all_months_operate index_busappearance investmarketing bus_open_to_public secured_buyer_m biz_assets_pca_m global_operation_outcomes2"
local xvars_rev2 "A_EDT_elig A_EDT_no_elig B_LL C_EDT_LL nobt_ne_nolw female fudummy*"
sum `yvars2' if EDT_treat==0 & d_lleligible==1 & L_ttreat==0 & bus_basline==1

est clear
local j =1
foreach y in `yvars2' {
	reg `y' `xvars_rev2' if (post==1 & bus_basline==1) , cl(co_code)
	estimates store `y'
	
	test A_EDT_elig =B_LL
	estadd scalar p_diff1 = r(p)
	
	test A_EDT_elig =C_EDT_LL
	estadd scalar p_diff2 = r(p)
	
	test B_LL=C_EDT_LL
	estadd scalar p_diff3 = r(p)
	
	test nobt_ne_nolw=A_EDT_no_elig
	estadd scalar p_diff4 = r(p)
	
	sum `y' if (post==1 & bus_basline==1) 
	estadd scalar mean_all = r(mean)
	sum `y' if (post==1 & bus_basline==1) & EDT_treat==0 & L_ttreat==0 & d_lleligible==1
	
	estadd scalar mean_y=r(mean)
	local j = `j'+1
}
	
estout * using "$out\OA-TableA4-PanelC.xls", cells("b(star fmt(3))" se(par(`"="("' `")""'))) ///
	keep(A_EDT_elig A_EDT_no_elig B_LL C_EDT_LL nobt_ne_nolw) starlevels(* 0.10 ** 0.05 *** 0.01) ///
	stats( mean_all mean_y N r2 p_diff1 p_diff2 p_diff3 p_diff4, fmt(2 2 0 2 2 2) ///
	labels( "Mean" "mean dependent variable" "N.obs" "R-Sq" "p1" "p2" "p3" "p4")) replace
estimates clear

********************************************************************************

**Panel C: Sales and profits

use "$data\business_visit.dta", clear

gen A_EDT_elig=(A_EDT==1 & d_lleligible==1)
gen A_EDT_no_elig=(A_EDT==1 & d_lleligible==0)
gen nobt_ne_nolw = EDT_treat==0 & d_lleligible==0 & L_ttreat==0

local yvars2 "log_good_month log_average_month log_bad_month  lognov08sale logprofit_revised global_monetary_outcomes"
local xvars_rev2 "A_EDT_elig A_EDT_no_elig B_LL C_EDT_LL nobt_ne_nolw female fudummy*"
sum `yvars2' if EDT_treat==0 & d_lleligible==1 & L_ttreat==0 & bus_basline==1

est clear
local j =1
foreach y in `yvars2' {
	reg `y' `xvars_rev2' if (bus_basline==1) , cl(co_code)
	estimates store `y'
	
	test A_EDT_elig = B_LL
	estadd scalar p_diff1 = r(p)
	
	test A_EDT_elig =C_EDT_LL
	estadd scalar p_diff2 = r(p)
	
	test B_LL=C_EDT_LL
	estadd scalar p_diff3 = r(p)
	
	test nobt_ne_nolw= A_EDT_no_elig
	estadd scalar p_diff4 = r(p)
	
	sum `y' if (post==0 | bus_basline==1) 
	sum `y' if (post==0 | bus_basline==1) & EDT_treat==0 & L_ttreat==0 & d_lleligible==1
	estadd scalar mean_y=r(mean)
	local j = `j'+1
}

estout * using "$out\OA-TableA4-PanelD.xls", cells("b(star fmt(3))" se(par(`"="("' `")""'))) ///
	keep(A_EDT_elig A_EDT_no_elig B_LL C_EDT_LL nobt_ne_nolw) starlevels(* 0.10 ** 0.05 *** 0.01) ///
	stats( mean_y N r2 p_diff1 p_diff2 p_diff3 p_diff4, fmt(2 0 2 2 2) ///
	labels( "mean dependent variable" "N.obs" "R-Sq" "p1" "p2" "p3" "p4")) replace
estimates clear
